<p> plotG, RepEnd, Unwrap, Strip </p>

e9ba70e5-d554-421c-908b-5e3d00f84a86 12 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

vx vy char size color plotG n vx length : plot vx 1 el vy 1 el char size color augment : i 2 n range plot plot vx i el vy i el char size color augment stack : for plot 41 line :

z n RepEnd m z rows : i 1 n range w i el z 1 el : for i n 1 + (m n + (range w i el z i n - el : for i m n + 1 + (m 2 n * + (range w i el z m el : for w 51 line :

data Strip nest stripped in 'R' u data 1 col : v data 2 col : k 0 : i 1 data rows 1 - range v i 1 + el v i el ≤ (v i 1 + el v i el ≥ (¤ R k k 1 + : el u i el v i el 12 mat : 11 line Undefined if 11 line for 21 line Un-nest R v R 1 el : j 2 R rows range v v R j el stack : for v 81 line :

M Unwrap V M 1 col : i 2 M cols range V V M i col stack : for V 31 line :

XW 1.5 2.6 0 4.8 3.5 - 3.4 4.1 - 0 1.5 - 1.5 - 0 4.1 - 3.2 3.1 - 4.7 0 1.5 2.6 92 mat :

r 2 :

Hermite Polyline Project

t0 1 time :

X XW 1 col r RepEnd : Y XW 2 col r RepEnd : XY X Y augment : 31 line

X XY 1 col : Y XY 2 col : Cntrl X Y . 14 black plotG : 31 line

α 16 / :

at α = 1/6 first & last points join, other α we have a zoom ± effect

Hermite PolyLine t P α t 3^- 3 t 2^* + 3 t * - 1 + (3 t 3^* 6 t 2^* - 4 + (3 t 3^* - 3 t 2^* + 3 t * + 1 + (t 3^41 mat * :

Each "j" segment is collected in matrix of 't' rows x 'j' cols. Each U,V is Unwrapped in column, augmented in 'xy', then stripped of repeated pairs for export.

t 01 0.05 range :

<= populate at will

t j XP μ j 11 line : t P 1 el X μ el * t P 2 el X μ 1 + el * + t P 3 el X μ 2 + el * + t P 4 el X μ 3 + el * + 21 line :

t j YP μ j 11 line : t P 1 el Y μ el * t P 2 el Y μ 1 + el * + t P 3 el Y μ 2 + el * + t P 4 el Y μ 3 + el * + 21 line :

j runs 1..rows(X)-(r+1)

U j 1 X rows r 1 + (- range : ct 1 : j j i 1 t rows range Hx i ct el t i el j XP eval : for ct ct 1 + : 21 line for Hx 41 line :

V j 1 X rows r 1 + (- range : ct 1 : j j i 1 t rows range Hy i ct el t i el j YP eval : for ct ct 1 + : 21 line for Hy 41 line :

xy U Unwrap V Unwrap augment :

xy xy Strip :

pts XW 1 col XW 2 col . 10 black plotG :

Hermite Polyline to Esplina

xy XW pts 3 1 sys

Hermite PolyLine 0...1

x P 1 el x P 2 el x P 3 el x P 4 el 4 1 sys

1 time t0 - 14 s *